home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / packages / CoreAppPackage / CommonHookU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-04-29  |  537 b   |  29 lines
  1. unit CommonHookU;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Forms;
  7.  
  8. var
  9.   RegisterPagesProc: procedure(Group: Integer; const Page: String;
  10.     PageForms: array of TForm) = nil;
  11.  
  12. procedure RegisterPages(const Page: String; PageForms: array of TForm);
  13.  
  14. implementation
  15.  
  16. uses
  17.   Classes;
  18.  
  19. const
  20.   SPackageError = 'Invalid package load request';
  21.  
  22. procedure RegisterPages(const Page: String; PageForms: array of TForm);
  23. begin
  24.   if Assigned(RegisterPagesProc) then
  25.     RegisterPagesProc(CurrentGroup, Page, PageForms);
  26. end;
  27.  
  28. end.
  29.